#! /usr/bin/racket -f

(define-struct posn (x y))

(define-struct entry (name zip phone))

(define (distance-to-0 a-posn)
   (sqrt
     (+ 
       (sqr (posn-x a-posn))
       (sqr (posn-y a-posn))
       )
     )
  )

(define a-pos (make-posn 3 4))
(display (distance-to-0 a-pos))
(display "\n")

(define man (make-entry 'Andy 123456 '0755-88888))
(display (entry-name man))
(display "\n")
(display (entry-zip man))
(display "\n")
(display (entry-phone man))
(display "\n")
